Dim rk1 As RegistryKey Dim rk2 As RegistryKey rk1 = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64) rk2 = rk1.OpenSubKey("HARDWARE\DESCRIPTION\System\BIOS") Dim PID As String = rk2.GetValue("SystemProductName").ToString